home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 5-Fonts & Software / HyperCard 1.2.5 / Home / card_3011.txt < prev    next >
Text File  |  1989-09-07  |  5KB  |  228 lines
  1. -- card: 3011 from stack: in
  2. -- bmap block id: 3080
  3. -- flags: 4000
  4. -- background id: 2282
  5. -- name: User Preferences
  6. ----- HyperTalk script -----
  7. on openCard
  8.   setUserLevel the userLevel
  9.   if card field "User Name" is empty
  10.   then click at the loc of card field "User Name"
  11.   pass openCard  -- added 4/14 MDH
  12. end openCard
  13.  
  14. on setUserLevel whatLevel
  15.   set userLevel to whatLevel
  16.   if the userLevel is whatLevel then
  17.     put the userLevel into card field "User Level"
  18.     set hilite of button "Browsing" to the userLevel = 1
  19.     set hilite of button "Typing" to the userLevel = 2
  20.     set hilite of button "Painting" to the userLevel = 3
  21.     set hilite of button "Authoring" to the userLevel = 4
  22.     set hilite of button "Scripting" to the userLevel = 5
  23.     set visible of button "Text Arrows" to the userlevel >= 2
  24.     set visible of button "Power Keys" to the userLevel >= 3
  25.     set visible of button "Blind Typing" to the userLevel = 5
  26.     set hilite of button "Text Arrows" to the textArrows
  27.     set hilite of button "Power Keys" to the powerKeys
  28.     set hilite of button "Blind Typing" to the blindTyping
  29.   else
  30.     set hilite of the target to false
  31.   end if
  32. end setUserLevel
  33.  
  34.  
  35.  
  36. -- part 1 (button)
  37. -- low flags: 00
  38. -- high flags: A006
  39. -- rect: left=95 top=145 right=166 bottom=223
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Browsing
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   setUserLevel 1
  51. end mouseUp
  52.  
  53.  
  54.  
  55. -- part 2 (button)
  56. -- low flags: 00
  57. -- high flags: E006
  58. -- rect: left=95 top=187 right=208 bottom=223
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Painting
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   setUserLevel 3
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 3 (button)
  75. -- low flags: 00
  76. -- high flags: A006
  77. -- rect: left=95 top=208 right=229 bottom=223
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Authoring
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   setUserLevel 4
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 4 (button)
  94. -- low flags: 00
  95. -- high flags: A006
  96. -- rect: left=95 top=229 right=250 bottom=223
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: Scripting
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   setUserLevel 5
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 5 (button)
  113. -- low flags: 00
  114. -- high flags: A005
  115. -- rect: left=211 top=187 right=208 bottom=314
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Power Keys
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   set powerKeys to the hilite of button "Power Keys"
  127. end mouseUp
  128.  
  129.  
  130.  
  131. -- part 7 (field)
  132. -- low flags: 00
  133. -- high flags: 0000
  134. -- rect: left=168 top=91 right=111 bottom=392
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 0
  138. -- font id: 3
  139. -- text size: 14
  140. -- style flags: 0
  141. -- line height: 18
  142. -- part name: User Name
  143. ----- HyperTalk script -----
  144. on closeField
  145.   global userName
  146.   put card field "User Name" into userName
  147. end closeField
  148.  
  149.  
  150.  
  151. -- part 8 (button)
  152. -- low flags: 00
  153. -- high flags: A006
  154. -- rect: left=95 top=166 right=187 bottom=223
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 1
  158. -- font id: 0
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: Typing
  163. ----- HyperTalk script -----
  164. on mouseUp
  165.   setUserLevel 2
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 9 (field)
  171. -- low flags: 81
  172. -- high flags: 0000
  173. -- rect: left=173 top=125 right=144 bottom=198
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 0
  177. -- font id: 3
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: User Level
  182.  
  183.  
  184. -- part 13 (button)
  185. -- low flags: 80
  186. -- high flags: A005
  187. -- rect: left=211 top=229 right=250 bottom=314
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 0 / 0
  190. -- text alignment: 1
  191. -- font id: 0
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: Blind Typing
  196. ----- HyperTalk script -----
  197. on mouseUp
  198.   set blindTyping to the hilite of button "Blind Typing"
  199. end mouseUp
  200.  
  201.  
  202.  
  203. -- part 14 (button)
  204. -- low flags: 00
  205. -- high flags: A005
  206. -- rect: left=211 top=166 right=187 bottom=314
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 1
  210. -- font id: 0
  211. -- text size: 12
  212. -- style flags: 0
  213. -- line height: 16
  214. -- part name: Text Arrows
  215. ----- HyperTalk script -----
  216. on mouseUp
  217.   set textArrows to the hilite of button "Text Arrows"
  218. end mouseUp
  219.  
  220.  
  221.  
  222. -- part contents for background part 6
  223. ----- text -----
  224. User Preferences
  225.  
  226. -- part contents for card part 9
  227. ----- text -----
  228. 3